#lang racket

(define (contain-2-doll lst doll)
  (cond
    [(symbol=? (first lst) doll) true]
    [(symbol=? (first (rest lst)) doll) true]
    [else false]
    )
  )

(define doll-list
  (cons 'Fall
    (cons 'Doll empty))
  )

(contain-2-doll doll-list 'Doll) 